home *** CD-ROM | disk | FTP | other *** search
/ Developer Source 6 / developer source - volume 6.iso / parad / aug95 / dond1f4.gif < prev    next >
Graphics Interchange Format  |  1996-11-18  |  10.2 KB  |  543x481  |  4-bit (5 colors)
   ocr: lE FRMNAVZ.FSL-Forml-keyPhysical method Keyrnysical(uar eventinto KeyEvent) var UCC Smallint endvar if - eventInfo.isPreFilter() then UCC = eventinfo.UCharCode() if active.atFirst0) then if (active.Name = "Order No" and (UCC = UK LEFT or (UCC = UK_ - TAB and eventinfo.isshiftkeyDown() ))) or UCC = UK UP then disableDefault Sendkeys(4F3,False) endif endit if - active.atLast0) then if (active.Name = "Amount Paid" and (UCC = UK RIGHT or UCC = UK TAB)) or UCC = UK DOWN then disableDefault sendkeys("XF4)",False) endif endif endif endmethod Edit Line: 10 Col:: 1